home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / Tools / freeWAIS-sf-1.1 / ui / dirname next >
Encoding:
Text File  |  1994-03-08  |  177 b   |  10 lines
  1. #!/bin/sh
  2. #
  3. #    @(#)dirname.sh 1.5 89/03/22 SMI; from S5R2 1.2
  4. #
  5. PATH=/bin:/usr/bin
  6. expr \
  7.   ${1-.}'/' : '\(/\)[^/]*//*$' \
  8.   \| ${1-.}'/' : '\(.*[^/]\)//*[^/][^/]*//*$' \
  9.   \| .
  10.